Set parameters for Hotine Oblique Mercator reference system
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(Coordinate), | intent(inout) | :: | coord | |||
real(kind=float), | intent(in) | :: | lat0 |
Latitude of projection center [rad] |
||
real(kind=float), | intent(in) | :: | centM |
Longitude of projection center [rad] |
||
real(kind=float), | intent(in) | :: | azimuth |
azimuth of centerline |
||
real(kind=float), | intent(in) | :: | falseE |
Easting/X at the center of the projection |
||
real(kind=float), | intent(in) | :: | falseN |
Northing/Y at the center of the projection |
||
real(kind=float), | intent(in) | :: | k |
scale factor |
SUBROUTINE SetHotineParametersCoord & ! (coord, lat0, centM, azimuth, falseE, falseN, k) IMPLICIT NONE !Arguments with intent (in): REAL (KIND = float), INTENT (IN) :: lat0 !!Latitude of projection center [rad] REAL (KIND = float), INTENT (IN) :: centM !!Longitude of projection center [rad] REAL (KIND = float), INTENT (IN) :: azimuth !!azimuth of centerline REAL (KIND = float), INTENT (IN) :: falseE !!Easting/X at the center of the projection REAL (KIND = float), INTENT (IN) :: falseN !!Northing/Y at the center of the projection REAL (KIND = float), INTENT (IN) :: k !!scale factor ! Arguments with intent (inout): TYPE (Coordinate), INTENT (INOUT) :: coord !------------end of declaration------------------------------------------------ !set Hotine Oblique Mercator parameters value CALL SetHotineParametersSystem (coord % system, lat0, centM, & azimuth, falseE, falseN, k) END SUBROUTINE SetHotineParametersCoord